home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / children / kidplay.arj / MIDPLAY.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-11-30  |  5KB  |  109 lines
  1. Form1
  2. MIDPLAY
  3. Form1
  4. Picture1
  5. Timer2
  6. Timer1
  7. Name1
  8. Times New Roman
  9. Group
  10. AutoSelect
  11. MMErrBox
  12. Form_Click
  13. @    Form_Load
  14. Name1
  15. Picture1_Click
  16. OpenStr
  17. FName
  18. MMSend
  19. CloseM
  20. MMErr[
  21. mciSendStringP
  22. MMCombo
  23. mciGetErrorString5
  24. Timer1
  25. Enabled
  26. PlayWait
  27. MMErrBox"
  28. MidPlay
  29. PlayDonek
  30. FALSE
  31. Timer1_Timerw
  32. Picture1_DblClick
  33. Index
  34. vsize
  35. Picture1
  36. Height
  37. hsize
  38. Width+
  39.     BackColorY
  40. Visible
  41. doing
  42. Command1_Click
  43. NowPlaying
  44.     GMGUITARc
  45. GroupNow
  46. Picture2_Click
  47. Group
  48. Group_Click
  49. AutoSelectQ
  50. AutoSelect_Click
  51. AutoNow
  52. Timer2_Timer
  53. Timer2
  54. CRed;
  55. CGreen
  56. CBlue
  57. MMErrBox_Change^
  58. HighestGroup
  59. Name1_Change
  60. ActualWavs
  61. ActualMids
  62. Form_Load
  63.  Set up 'bank colors' - green, blue, yellow, pink 
  64. MIDS.DAT
  65.  Open file for input.
  66.  Check for end of file.
  67.  Read data.+
  68.  Increment index.a
  69.  Close data file.d
  70.  if we have less than 440, adjust the name
  71.  array as necessary.  Fill the remaining entries ine
  72.  the last group with duplicates.
  73. MMSend
  74. turn on test for play stop
  75.  PlayWait
  76.  'wait on DoEvents() 
  77.  If Ret& <> 0 Then
  78.  MMErrBox.Text = "Err: " + MMErr$
  79.  End IfP
  80. PlayWait
  81. release time to system during song
  82.  PlayDone = TRUE to get here..
  83.  reset flag for next playd
  84.  turn off timert
  85. Picture1_Click
  86. stop midi wait
  87. close midi wait"
  88.  drop the .MID
  89.  drop the path, if there is one
  90. Open "
  91.  alias midi"
  92. Play midi from 0
  93.  CloseM$ = "close midi wait"
  94.  MMSend CloseM$l
  95. Command1_Click
  96. set midi tempo
  97. Timer1_Timer
  98. status midi mode
  99. stopped"
  100. close midi wait"
  101. Open "
  102.  alias midi"
  103. Play midi from 0
  104.  drop the .MID
  105.  drop the path, if there is one
  106. Group_Click
  107. AutoSelect_Click
  108. Timer2_Timer
  109.